0 IFPEEK(49152)=1 THEN POKE49152,0:GOTO14
1 IFA=0 THEN A=1:LOAD"ZS",8,1
2 IFA=1 THEN A=2:LOAD"C800",8,1
4 IFA=2 THEN A=3:LE$="LEVEL ":INPUT"LEVEL";LL$:LE$=LE$+LL$
5 IFA=3 THEN A=4:LOADLE$,8,1
6 POKE53272,29:SYS51200
7 FORI=1024 TO 1024+999:IFPEEK(I)=73 THEN S=S+1:POKEI,42
8 NEXT
9 PRINT"TASTE[154]":POKE198,0:WAIT198,1
10 PRINT"[147]ANZAHL SYMBOLE:";S;CHR$(13);"[154]SEQ-DATEI = ";"L ";LL$;"[154]"
11 REM--------------------------------
12 IF PEEK(49152)<>1 THEN POKE49152,1:POKE53272,21:LIST 13-50:END
13 REM--------------------------------
14 POKE 49152,0:L$="L 00":REM SEQ-DATEI
15 REM--------------------------------
16 REM BEI DUMMY DATEI BEI LV LETZTES          LEVEL EINGEBEN
17 REM UND LEITERMAUER WERT 9
18 REM--------------------------------
20 LV=00:REM LEVEL
21 REM==---------
30 SY=00:REM ANZAHL SYMBOLE
31 REM==-------------------
40 LM=0:REM LEITERMAUER UNTEN 0=AUS1=AN
41 REM= 2=LEITER STATT MAUER
42 REM----------------------------
50 LU=0:REM LEITERMAUER OBEN 0=AUS 1=AN
51 REM= 2=LEITER STATT MAUER
60 REM----------------------------
500 OPEN 1,8,2,"@:"+L$+",S,W"
520 PRINT#1,LV
525 PRINT"LEVEL = ";LV
530 PRINT#1,SY
535 PRINT"ANZAHL SYMBOLE = ";SY
540 PRINT#1,LM
542 PRINT#1,LU
545 PRINT"LEITER UNTEN = ";LM
547 PRINT"LEITER OBEN = ";LU
640 CLOSE 1